home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / programming / oracle7 7.2 / INSTALL / WIN95.PVF < prev    next >
Encoding:
Text File  |  1995-09-29  |  2.3 KB  |  71 lines
  1. /* Copyright (c) Oracle Corporation 1993.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     win95.pvf - V3 post version analysis script for Windows 95 products.
  5.  
  6.   DESCRIPTION
  7.     This script performs post version analysis functionality.  In particular,
  8.     it analyzes the 'products_for_installation' list so that the Installer
  9.     can report which products need to be implicitly installed as a consequence
  10.     of the user's current configuration and product selection. 
  11.  
  12.   OWNER
  13.     Kush Jain
  14.  
  15.   MODIFIED    DD-MMM-YY  Reason
  16.     sagarwal  11-JUL-95  Modified for Windows 95 from nt.pvf
  17.     zzerhoun  29-MAR-95  display advertisement
  18.     kjain     18-FEB-94  Created.
  19. *****************************************************************************/
  20. {
  21.   { ui_graphics("%product_home%\usradus.bmp"); } 
  22.   ['default:
  23.     { ui_graphics("%product_home%\advus.bmp"); }
  24.     ['FILE_NOT_FOUND:
  25.       { ui_graphics("%installer_home%\advus.bmp"); }
  26.       [ 'default:continue();]
  27.     ]
  28.   ]
  29.  
  30.   if (user_action == 'install)
  31.     {
  32.       prod_not_empty = not(empty(products_for_installation));
  33.       
  34.       if (verbose) 
  35.     {
  36.       extras = list();
  37.       {
  38.         while (not(empty(products_for_installation)))
  39.           {
  40.         if (not(member(selected_products,
  41.                    first(products_for_installation))))
  42.           {
  43.             prodlab = product_interface_label(first(products_for_installation));
  44.             ver = product_version(first(products_for_installation));
  45.             add(extras,instantiate(version_string));
  46.           }
  47.  
  48.         products_for_installation = rest(products_for_installation);
  49.           }
  50.  
  51.         if (not(empty(extras)))
  52.           {
  53.         extrastring = implode(extras,", ");
  54.  
  55.         required_products_prompt = nls("required_products_prompt","The following product(s) are required and will be installed in addition to the ones you have chosen:%carriage_return%%carriage_return%%%extrastring%%");
  56.         required_products_content = nls("required_products_content","Required Products");
  57.  
  58.         information_dialog(instantiate(required_products_prompt),
  59.                    required_products_content,
  60.                    instantiate(required_products_prompt));
  61.           }
  62.       }
  63.  
  64.     }
  65.       [ 'UNBOUND_VARIABLE: continue(); ] /* products_for_installation */
  66.                                /* could possibly be unbound */
  67.     }
  68.  
  69.   return(0);
  70. }
  71.